home *** CD-ROM | disk | FTP | other *** search
- public read12, read2, rin21, rfile3, read, updrtr, nak, rrinit
- include ccsdef.h
-
- datas segment public 'datas'
- extrn data:byte, bufpnt:word, chrcnt:word, curchk:byte, fmtdsp:byte
- extrn flags:byte, pack:byte, trans:byte, dtrans:byte
- extrn diskio:byte, locfil:byte, maxtry:byte, imxtry:byte
- extrn fsta:word, errlev:byte, ofilsz:word, kstatus:word
- extrn isccdos:byte ; Jun 25,1990
-
- setattr equ 57h ; DOS get/set file's date and time
-
- ermes7 db '?Unable to receive initiate-packet$'
- cermes7 db '?▓╗─▄╜╙╩╒│⌡╩╝╨┼╧ó░ⁿ$'
- ermes8 db '?Unable to receive file name$'
- cermes8 db '?▓╗─▄╜╙╩╒╬─╝■├√$'
- ermes9 db '?Unable to receive end of file$'
- cermes9 db '?▓╗─▄╜╙╩╒╬─╝■╡─╜ß╩°╖√$'
- erms10 db '?Unable to receive data$'
- cerms10 db '?▓╗─▄╜╙╩╒╩²╛▌$'
- erms11 db 'Not enough disk space for file$'
- cerms11 db '├╗╙╨╫π╣╗┤┼┼╠┐╒╝Σ╕°╬─╝■$'
- infms1 db cr,' Receiving: In progress',cr,lf,'$'
- cinfms1 db cr,' ╜╙ ╩╒ : ╘┌╜°╨╨╓╨ ',cr,lf,'$'
- infms3 db 'Completed',cr,lf,'$'
- cinfms3 db '╥╤═Ω│╔ ',cr,lf,'$'
- infms4 db 'Failed',cr,lf,'$'
- cinfms4 db '╩º░▄┴╦',cr,lf,'$'
- infms6 db 'Interrupted',cr,lf,'$'
- cinfms6 db '▒╗╓╨╢╧ ',cr,lf,'$'
- donemsg db '100%$'
- filhlp2 db ' Local path or filename or carriage return$'
- cfilhlp2 db ' ▒╛╡╪┬╖╛╢╗≥╬─╝■├√╗≥╗╪│╡$'
- ender db bell,bell,'$'
- crlf db cr,lf,'$'
- temp dw 0
- filopn db 0 ; Says if disk file is open
- ftime db 0,0 ; file time (defaults to 00:00:00)
- fdate db 0,0 ; file date (defaults to 1 Jan 1980)
- attrib db 0 ; attribute code causing file rejection
- datas ends
-